1000 REM *** JOYSTICK DEMO PGM ***
1010 GOSUB 2000
1020 IF JV=1 THEN PRINT"     U P     "
1030 IF JV=2 THEN PRINT"   D O W N   "
1040 IF JV=4 THEN PRINT"   L E F T   "
1050 IF JV=5 THEN PRINT"  UP & LEFT  "
1060 IF JV=6 THEN PRINT" DOWN & LEFT "
1070 IF JV=8 THEN PRINT"  R I G H T  "
1080 IF JV=9 THEN PRINT" UP &  RIGHT "
1090 IF JV=10THEN PRINT"DOWN &  RIGHT"
1630 IF FR= 16 THEN 1010
1640 PRINT"*** F I R E ***"
1660 GOTO 1010
1990 END
2000 REM    *** JOYSTICK ROUTINE ***
2010 :
2020 POKE 56322,0
2030 JV=PEEK(56320)
2040 FR=JV AND 16
2050 JV=15-(JV AND 15)
2060 POKE 56322,255
2070 RETURN